home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor2 / fnlwrppr.lha / FinalWrapper3_12 / RemFinalWrapper.install < prev    next >
Text File  |  1996-10-31  |  2KB  |  65 lines
  1. ; $VER: RemFinalWrapper.install 3.12 (31.10.96) by NDY's
  2. (PROCEDURE del
  3.   (IF (EXISTS file (NOREQ)) (DELETE file))
  4. )
  5.  
  6.  
  7. (IF (= @language "deutsch")
  8.   (
  9.     (SET ok "FinalWrapper wirklich entfernen?")
  10.     (SET macro "Wählen Sie Ihr Final Writer Makroverzeichnis:")
  11.     (SET delhelp "FinalWrapper wird mit allen\nzugehörigen Dateien entfernt:\n\nFinalWrapper.rexx\nFW_#?.rexx\nENVARC:FinalWrapper\nHELP:deutsch/FinalWrapperSmallD.Guide")
  12.     (SET manual "FinalWrapperSmallD.Guide")
  13.     (SET nosuchdir "Verzeichnis nicht gefunden:")
  14.     (SET no "Nein")
  15.     (SET yes "Ja")
  16.     (SET done "FinalWrapper erfolgreich deinstalliert!")
  17.   )
  18.   (IF (= @language "italiano")
  19.     (
  20.       (SET ok "Eliminare FinalWrapper?")
  21.       (SET macro "Scegliere la directory delle macro di Final Writer:")
  22.       (SET delhelp "FinalWrapper sarà deinstallato:\n\nFinalWrapper.rexx\nFW_#?.rexx\nENVARC:FinalWrapper\nHELP:italiano/FinalWrapperSmallI.Guide")
  23.       (SET nosuchdir "Directory non trovata:")
  24.       (SET manual "FinalWrapperSmallI.Guide")
  25.       (SET yes "Si")
  26.       (SET no "No")
  27.       (SET done "FinalWrapper è stato\ndeinstallato con successo!")
  28.     )
  29.     (
  30.       (SET ok "Really remove FinalWrapper?")
  31.       (SET macro "Choose your Final Writer macro directory:")
  32.       (SET delhelp "FinalWrapper will be removed\nincluding all related files:\n\nFinalWrapper.rexx\nFW_#?.rexx\nENVARC:FinalWrapper\nHELP:english/FinalWrapperSmall.Guide")
  33.       (SET nosuchdir "Directory not found:")
  34.       (SET manual "FinalWrapperSmall.Guide")
  35.       (SET no "No")
  36.       (SET yes "Yes")
  37.       (SET done "FinalWrapper successfully deinstalled!")
  38.     )
  39.   )
  40. )
  41. (SET @default-dest (TACKON @default-dest "FinalWriter/FWMacros"))
  42. (IF (EXISTS "ENV:FinalWrapper/FWPath" (NOREQ))
  43.   (
  44.     (SET path (GETENV "FinalWrapper/FWPath"))
  45.     (IF (= (ASKBOOL (PROMPT ok) (HELP delhelp) (DEFAULT 1) (CHOICES (CAT no yes))) 0) (EXIT))
  46.   )
  47.   (
  48.     (SET path (ASKDIR (PROMPT macro) (DEFAULT @default-dest) (HELP delhelp)))
  49.   )
  50. )
  51. (IF (NOT (EXISTS path (NOREQ))) (EXIT nosuchdir path))
  52. (SET file (TACKON path "FinalWrapper.rexx")) (del)
  53. (FOREACH path "FW_#?.rexx"
  54.   ((SET file (TACKON path @each-name)) (del))
  55. )
  56. (SET file (TACKON (TACKON "HELP:" @language) manual)) (del)
  57. (SET path "ENVARC:FinalWrapper")
  58. (FOREACH path "#?"
  59.   ((SET file (TACKON path @each-name)) (del))
  60. )
  61. (SET file "ENVARC:FinalWrapper") (del)
  62. (SET file "ENVARC:FinalWrapper.def") (del)
  63. (SET file "ENVARC:Locale") (del)
  64. (EXIT done)
  65.